10 REM**************************************************************
20 REM**************************************************************
30 REM*********                                                                                                ************
40 REM*********                          LOESUNGSVORSCHLAG 2U                        ************
50 REM*********                          TEMPERATURMESSPLATZ                          ************
60 REM*********                                      UEBUNG a)                                       ************
70 REM*********                                                                                                ************
80 REM*********                                                                       GST 04/86  ************
90 REM**************************************************************
100 GOSUB Pca_ i n i t s REM  ***************************************************
110 GOSUB Var_init
140 GOSUB Ieee_init: REM  Hier werden die Unterprogramme aufgerufen !
150 GOSUB Ptm^init
160 GOSUB Ptc_init
180 GOSUB Meas_loop: REM ***************************************************
190 REM
200 END
999 REM######################EIMDE DES HAUPTPROGRAMMS########################
1010 REM                                        ********** PCA- Initialisierung **********
1020 PRINT ,,ecC2J" s CLEAR
1030 RETURN
1040 REM===================================================================^
1110 REM                                        ********** Variablendeklaration **********
1120 Soll_ptcl=15: Grenz_ptm=24
1130 Soll_ptcu=35
1140 Hys=ls Ptm=21:'Ptc=20
1150 REM
1160 RETURN
1199  REM=========================== = = = = = = « = = = = = = = = :=: = = = = = = = = = = *: = =: = = = = = = =*: = = =
1410 REM                                        ********** Initialisierung des IEC- Bus **********
1420 IEC IFC ,DCL /TERM 10,TIME 1000 1430 RETURN
1440   REM
1499     REM= = = = = = = = = = = ««=: = rrss = = = = = = = = ==« = = = = = = = =: = =:« =
1500Ptm_init: REM===========================================================
1510 REM                                        ********** Initialisierung des PTM **********
1520 IEC OUT Ptm?nEln: REM ***** Schlusszeichen = LF *****
1530 IEC OUT Ptm^CjS!" : REM ***** Anzeige = Celsius., Messung ueber ***** 1540 RETURN : REM                             *****                                               Kanal 1       *****
1550 REM
1600Ptc_init: REM===========================================================
1610 REM                                        ********** Initialisierung des PTC **********
1620 IEC OUT Ptc,"El"s REM    ***** Schlusszeichen.= LF *****
1630 IEC OUT Ptc,l,S+l5C": REM ***** Solltemp* bei Beginn = 15 celsius *****
1640 IEC OUT Ptc., "HU+1" s REM  ***** obere Hysterese 1 Grad *****
1650 IEC OUT Ptc,MHL+i": REM  ***** untere Hysterese 1 Brad *****
1660 RETURN
1670 REM
1699 REM============================================================-=======
2000Meas_loop: REM=========================================
2010 REM                                                           ***********************************************
2020 REPEAT s REM                                          Abfrage des PTM5 ob Aussentemperatur unter-*
2025   HOLD 100s REM                                   schritten- Bei Ja, Einschalten des Foens
2030   1EC IN Ptm;1?Aussen*s REM       durch Setzen der PTC- Solltemperatur auf
2040   Aussen=VAL(Aussen$)s REM          den Wert 35 Grad C„ Bei Nein, Fortfuehren
2050 UNTIL Aussen<6renz_ptnis REM       öbv   Abfrage.
2060 REM                                                           **************************************************
2070 IEC OUT Ptc,8!S+35C,fs REM              Setzen der Soll temp, am PTC
2110 REM                                                           **********************************************
2120 REPEAT s REM                                          Abfrage des PTM ob Aussentemperatur wieder
2125   HOLD 100s REM                                   den   Sollwert nach oben ueberschritten hat.
2130   IEC IN Ptin; 1 ?Aussen$ : REM       Bei Ja, Ausschalten des Foens durch setzen
2140   Aussen=VAL(Aussen*)s REM          einer niedrigen Solltemperatur.
2150 UNTIL Aussen>Grenz_ptms REM
2160 REM                                                           ************#*********************************
2170 IEC OUT Ptc,"S+15C"s REM            Siehe Zeile 2070
2180 RETURN
2190 REM                                                           ***##***#**•*•**•********************************
2200 REM ** Zur Erinnerung! **
2210 REM Der Foen war an einen Lastschalter an übt   Rueckseite des PTC ge-
2220 REM bunden* Der Lastschalter konnte nur durch Setzen einer ueberhoeten
2230 REM oder einer zu tiefer Solltemperatur ein- und ausgeschaltet werden.
2240 REM ***
2250 REM Bedeutung der Variablen:
2260 REM 5oll=ptcl ist die Groesse fuer den Ausschaltwert des PTC- Last-
2270 REM                           relais (low)
2280 REM Soll=ptcu ist die Groesse fuer d&n   Einschaltwert des PTC- Last-
2290 REM                          relais (high)
2300 REM Grenz_ptm ist d&r   simulierte AussentemperaturwertP bei deren
2310 REM                          Unterschreitung die Heizung (Foen) eingeschaltet
2320 REM                          werden soll !
2330 REM*******************************************